home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar / 1998 / Feb / di9802ts / samples.pas < prev    next >
Pascal/Delphi Source File  |  1997-07-30  |  210b  |  9 lines
  1.   { Code Sample 1 - Easy Fire Event }
  2.   ActiveScript.GetScriptDispatch(nil, ADispatch);
  3.   if ADispatch <> nil then
  4.   begin
  5.     AVariant := ADispatch;
  6.     AVariant.Main;  { Fire the Main Event }
  7.   end;
  8.  
  9.